function ok(x,warn)   { 
    return x ? 1 :  barph(warn) 
}
function barph(string) {
    print "W> " string >>"/dev/stderr"
    fflush("/dev/stderr")
    return 0
}
function test(what,x,     some) { 
    some = 10^-8
    Passed += x ? 1 : 0
    Failed += x ? 0 : 1
    printf("%3.0f,%20s, ", Passed+Failed,what)
    printf("%s,%4.0f,%4.0f,%4.0f%,%s\n",
           x ? "passed" : "FAILED",
           Passed,
           Failed,
           100*Passed/(Passed+Failed+some),
           x ? "" : " <=============")
}
